;:sys36864
	;.opt oo
	*= $c000
	jmp on
	jmp off
on	sei
	lda #51
	sta 1
	ldy #0
	sty 247
	sty 249
	lda #208
	sta 248
	lda #12
	sta 250
	lda #4
	sta 251
c	lda (247),y
	and #15
	tax
	lda tab,x
	sta (249),y
	lda 250
	eor #4
	sta 250
	lda (247),y
	lsr
	lsr
	lsr
	lsr
	tax
	lda tab,x
	sta (249),y
	lda 250
	eor #4
	sta 250
	iny
	bne c
	inc 248
	inc 250
	dec 251
	bne c
	lda #55
	sta 1
	cli
	lda #19
	sta 53272
	sty 4096
	lda #16
	sta 44
	lda #<neu
	ldy #>neu
	sta 806
	sty 807
	lda #<hi
	ldy #>hi
	jmp $ab1e
tab	=*
	.byt %00000000
	.byt %00000011
	.byt %00001100
	.byt %00001111
	.byt %00110000
	.byt %00110011
	.byt %00111100
	.byt %00111111
	.byt %11000000
	.byt %11000011
	.byt %11001100
	.byt %11001111
	.byt %11110000
	.byt %11110011
	.byt %11111100
	.byt %11111111
hi	.byt 13
	.byte "\x93double - print 1.0"
	.byt 13
	.byte "* activated *\x11"
	.byt 13
	.byte "(c) nh-060590-arr"
	.byt 13
	.byte "ein nss-programm"
	.byt 13,0
neu	pha
	lda $9a
	cmp #3
	beq flash
	jmp $f1d5
flash	pla
	cmp #32
	bcs evtl
norm	jmp $e716
evtl	cmp #128
	bcc ok
	cmp #149
	bcc norm
	cmp #156
	bcc ok
	cmp #160
	bcc norm
ok	pha
	lda #0
	sta 199
	pla
	jsr $e716
	inc 199
	jsr $e716
	jsr $e684
	clc
	rts
off	lda #21
	sta 53272
	jmp $ff8a